function [norma]=norm(A)
[nl nc]=size(A)
norma=0
for i=1:nl
   for j=1:nc
       norma=norma+A(i,j)^2
   end
end
norma=sqrt(norma)
endfunction


